home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 20 / 020.d81 / scrambler demo2 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  646b  |  29 lines
  1. 1 ifl=0thenl=1:load"scramble.49152",8,1
  2. 100 rem demo program for scrambler
  3. 110 rem (assumes machine language)
  4. 120 rem (routine already loaded)
  5. 121 :
  6. 130 printchr$(147):poke53272,23
  7. 140 poke53280,0:poke53281,0
  8. 150 printchr$(5)
  9. 155 te$=""
  10. 160 print"[208]hrase to [211]cramble:":print"       [enter 'quit' to exit]"
  11. 170 inputte$
  12. 175 ifte$="quit"orte$=""then60000
  13. 180 print"[203]eyword:"
  14. 190 inputke$
  15. 195 ke$=ke$+"":rem note this operation
  16. 200 printchr$(18)"[195][204][197][193][210][212][197][216][212]:"
  17. 210 printtext$:print
  18. 220 printchr$(158)
  19. 230 printchr$(18)"[211][195][210][193][205][194][204][197][196]:"
  20. 250 sys49152,0,key$,text$
  21. 260 printtext$:print
  22. 270 printchr$(159)
  23. 280 printchr$(18)"[196][197][195][207][196][197][196]:  "
  24. 300 sys49152,1,key$,text$
  25. 310 printtext$:print
  26. 320 goto150
  27. 60000 print"[147]load"chr$(34)"scrambler"chr$(34)",8":print"run"
  28. 60002 poke631,13:poke632,13:poke198,2:        end
  29.